home *** CD-ROM | disk | FTP | other *** search
/ Publication 11 / Publication_11_19xx_-_de_Side_A.d64 / textanzeiger 1.8 / textanzeiger 1.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-01-01  |  12.0 KB  |  57 lines
  1. 10 dc$="":for x=1 to 44:read a:dc$=dc$+chr$(a):next:poke53272,21
  2. 11 poke 53280,11:poke 53281,12:print"[147]"
  3. 12 i=512:k$=chr$(0):deffna(a)=a+64+64*(a<64anda>31)+32*(a<96anda>63)
  4. 13 print tab(6) "publication text-reader v1.8"chr$(8)
  5. 14 print tab(5) "[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  6. 15 print tab(4)"[155](w)  by zeitgeist/civitas/willow"
  7. 16 input "[151] filename ";n$
  8. 17 if len(n$)>16 or n$="" then run
  9. 18 close 15:open 15,8,15,"i":gosub 44:ty$="p":a=1
  10. 19 open 2,8,2,n$+","+ty$+",r"
  11. 20 input#15,e:if e<20 then 27
  12. 21 close 2
  13. 22 if e<>64 then run
  14. 23 if a=1 then ty$="s"
  15. 24 if a=2 then ty$="u"
  16. 25 if a=3 then run
  17. 26 a=a+1:goto 19
  18. 27 get#2,a$:sl=peek(512):get#2,a$:sh=peek(512)
  19. 28 print#15,"m-r" chr$(24) k$ chr$(2)
  20. 29 get#15,a$:t=peek(i):get#15,a$:s=peek(i)
  21. 30 close 2:print#15,"u;":open 2,8,2,"#3":gosub 44:print#15,"b-p";2;0
  22. 31 print#2,dc$;
  23. 32 print#15,"m-w" chr$(6) chr$(0) chr$(2) chr$(t) chr$(s)
  24. 33 print#15,"m-e" chr$(0) chr$(6):close 2
  25. 34 print#15,"m-r" chr$(10) k$ chr$(2)
  26. 35 get#15,a$:l=peek(i):get#15,a$:h=peek(i)
  27. 36 print#15,"m-r" chr$(1) chr$(3) chr$(1)
  28. 37 get#15,a$:bytes=peek(i)-1
  29. 38 close 15
  30. 39 x2=h*256+l
  31. 40 x3=(h*256+l-1)*254+bytes-1
  32. 41 if ty$<>"p" thenprint" [144]mistake !":end
  33. 42 x1=sh*256+sl
  34. 43 goto100
  35. 44 input#15,e,e$,et,es:if e<20 then return
  36. 45 close 2:close 15
  37. 46 print "disk error"
  38. 47 print e,e$,et;es
  39. 48 ti$="000000":wait 161,1:run
  40. 49 ti$="000000":wait 161,1:run
  41. 50 dc$="":y=49152:for x=1 to 184:read a:dc$=dc$+chr$(a):next:return
  42. 51 data 169,0,133,10,133,11,169,176,133,0
  43. 52 data 165,0,48,252,169,128,133,0,165,0
  44. 53 data 48,252,230,10,208,2,230,11,173,0
  45. 54 data 3,208,1,96,133,6,173,1,3,133
  46. 55 data 7,24,144,218
  47. 100 print"[147][151]";:poke53280,0:poke53281,0:sys57812n$,8,1:poke780,0:sys65493:x=x1
  48. 101 poke53272,29:forg=xtox+960:poke1024+g-x,peek(g):next:x=x+960:y=1984
  49. 102 poke211,0:poke214,24:sys58732
  50. 103 pokey,peek(x):y=y+1:x=x+1:ify>2023theny=1984:print
  51. 104 geta$:ifa$=""then103
  52. 105 ifa$=chr$(13)thengosub200
  53. 106 ifa$="x"ora$="n"thenrun
  54. 109 ifa$="q"thenpoke53281,12:poke53280,11:poke53272,21:print"[144][147] bye,folx !":end
  55. 110 goto103
  56. 200 geta$:on-(a$="")goto200:return
  57.